برنامه اي كه دو عدد صحيح m , n را مي گيرد و اعداد صحيح بين m و n و خود آنها را چاپ مي كند.

n=input('n=  ');

m=input('m=  ');

if n>m

    for i=m:n

        fprintf('   %g' , i);

    end

elsefor j=n:m

        fprintf('  %g',j);

    end

end 

برنامه اي كه دو عدد طبيعي n , m را مي گيرد و بزرگترين مقسوم عليه مشترك آنها را چاپ مي كند.

n= input(' n= ');

m= input(' m= ');

if n<><>

x=m;

m=n;

n=x;

else

    n=n;

    m=m;

end

while m>0

s=rem(n,m);

n=m;

m=s;

end

fprintf(' gcd  =  %g' , n) 

برنامه اي كه يك عدد را از ورودي گرفته و مقلوب ان را چاپ مي كند.

n=input('enter a number  ');

k=dig(n);

s=0;

i=0;

while n>0

    i=i+1;

    m=floor(n/10);

    d=n-10*m;

    s=s+d*10^(k-i);

    n=m;

end

fprintf('invert of number  %1.12g\n',s); 

برنامه اي كه كليه اعداد سه رقمي كه ارقام انها 0 و 2 و 4 و 6 و 8 باشد چاپ مي كند

for i=2:2:8

for j=0:2:8

for k=0:2:8

fprintf('%g ' , 100*i + 10*j + k);

end

end

end 

برنامه اي كه عددی را گرفته و تعداد ارقام آن را به ما می دهد .

n=input('enter a number  ');

if n>0

    k=floor(log10(n))+1;

elseif n<0 

k=floor(log10(-n))+1;

else

    k=1;

end

fprintf('number of digits  %g\n',k);

به دست آوردن ریشه معادله x+cos(x) به روش نصف کردن

a=-1;

b=0;

e=.00001;

while abs(b-a)>e

    k=(a+b)/2;

    if (k+cos(k))* (a+cos(a))>0

        a=k;

    else

        b=k;

    end

end

    fprintf('  %g',k);

    fprintf('  \n'); 

تولید مثلث خیام پاسکال

n=input('enter a number n= ');

fprintf('  \n');

for j=0:n

    fprintf('  \n');

for i=0:j

c=factor(j)/(factor(i)*factor(j-i));

fprintf('  %g',c);

end

fprintf('  \n');

end

تعریف تابع فاکتوریل 

function f=factor(n)

f=1;

for i=1:n

    f=f*i;

end

برنامه ای که مجموع ارقام عددی را محاسبه کند

n=input('enter a number  ');

s=0;

for i=1:dig(n)

    b=floor(n/10);

c=n-b*10;

s=s+c;

n=b;

end

fprintf('number of digits  %g\n',s);

محاسبه ترکیب n شی

n=input('enter a number n= ');

r=input('enter a number r= ');

c=factor(n)/(factor(r)*factor(n-r));

fprintf('c(n,r)=  %g\n',c);

محاسبه ریشه x+cos(x) به روش وتری

x(1)=-1;

x(2)=0;

e=.00000001;

i=2;

while abs(x(i)-x(i-1))>e

    x(i+1)=x(i)-secant(x(i))*((x(i)-x(i-1)))/(secant(x(i))-secant(x(i-1)));

    i=i+1;

end

fprintf('  %g',x(i),i);

    fprintf('  \n');

محاسبه ضرایب n جمله ای نیوتن

 n=input('enter a number n= ');

fprintf('  %g\n');

for i=0:n

c=factor(n)/(factor(i)*factor(n-i));

fprintf('  %g',c);

end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: